Sub Refresh()

    ActiveWorkbook.Connections("Power Query - Jan2008").Refresh
    ActiveWorkbook.Connections("Power Query - Feb2008").Refresh
    ActiveWorkbook.Connections("Power Query - Mar2008").Refresh
    ActiveWorkbook.Connections("Power Query - Transactions").Refresh

End Sub